home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / Snippets / Printing / PostScriptHandleDemo / PS Text < prev    next >
Encoding:
Text File  |  1992-10-06  |  699 b   |  38 lines  |  [TEXT/Ack?]
  1. % Example from page 98 of the
  2. % Adobe PostScript Language Tutorial and Cookbook.
  3. % ©1985 Adobe Systems Incorporated.
  4.  
  5. % ----- Procedures ------
  6.  
  7. /Helvetica-Bold findfont 30 scalefont setfont
  8.  
  9. /oshow % stack: (string)
  10.  {true charpath stroke} def
  11.  
  12. /circleofAdobe
  13. { 15 15 345
  14.   { gsave
  15.      rotate 0 0 moveto
  16.      (Adobe) oshow
  17.      grestore
  18.    } for
  19. }def
  20.  
  21. % --- Begin Program ---
  22.  
  23. 250 400 translate
  24.  
  25. .5 setlinewidth
  26. circleofAdobe
  27.  
  28. 0 0 moveto
  29. (Adobe Systems) true charpath
  30. gsave 1 setgray fill grestore
  31. stroke
  32.  
  33. % We don't execute the showpage below because PrClosePage does a final showpage for us.
  34. % Executing this one would cause the PrClosePage showpage to print an (extra) blank page.
  35.  
  36. % showpage
  37.  
  38.